home *** CD-ROM | disk | FTP | other *** search
- PAGE 57,132
- TITLE D S P A C E . A S M (SUBROUTINE TO FILLDISK.SRC)
- ;
- ; DSPACE DISKSPACE VIA INT 33, FUNCTION 54
- ;
- ; IN PARM 1, STACK DRIVE NUMBER
- ;
- ; OUT PARM 2, " AX SECTORS PER CLUSTER
- ; PARM 3, " CX BYTES PER SECTOR
- ; PARM 4, " BX NUMBER OF AVAILABLE CLUSTERS
-
- PARM STRUC
-
- SAVEBP DW 0
- RETOFF DW 0
- RETSEG DW 0
- PARM4 DW 0
- PARM3 DW 0
- PARM2 DW 0
- PARM1 DW 0
-
- PARM ENDS
-
- PARMSIZE EQU OFFSET PARM1 - OFFSET RETSEG
-
-
- CODE SEGMENT BYTE PUBLIC 'CODE'
- ASSUME CS:CODE
-
- DSPACE PROC FAR
- PUBLIC DSPACE
-
- PUSH BP
- MOV BP, SP
- MOV SI, [BP].PARM1
- MOV DL, [SI]
-
- MOV AH, 54
- INT 33
-
- MOV DI, [BP].PARM2
- MOV [DI], AX
- MOV DI, [BP].PARM3
- MOV [DI], CX
- MOV DI, [BP].PARM4
- MOV [DI], BX
-
- POP BP
-
- RET PARMSIZE
-
- DSPACE ENDP
- CODE ENDS
- END